***************************************************************** 

* * 

* HARD DISK BOOT PROGRAM. * 

* FOR M26, M10, AND M20. * 

* * 

***************************************************************** 



'SodTtib. <P#a) 



0100 



ORG 



100H 



000D 


= 


REVNUM 


EQU 


13 


0050 


= 


IOADDR 


EQU 


120Q 


0050 


= 


CONTRL 


EQU 


IOADDR 


0050 


= 


STATUS 


EQU 


IOADDR 


0053 


= 


DATA 


EQU 


IOADDR+3 


0052 


= 


FUNCTN 


EQU 


IOADDR+2 


0051 


= 


COMMD 


EQU 


IOADDR+1 


0001 


= 


DREAD 


EQU 


1 


0001 


= 


SECTOR 


EQU 


1 


0002 


— 


OPDONE 


EQU 


2 


0004 


= 


COMPLT 


EQU 


4 


0008 


= 


HEADER 


EQU 


10Q 


0005 


= 


DRENBL 


EQU 


5 


0007 


= 


DSKRUN 


EQU 


7 


0020 


ss 


READY 


EQU 


40Q 


0080 


= 


SYSTEM 


EQU 


200Q 


00F8 


= 


STEPO 


EQU 


370Q 


00FC 


= 


DRIVEA 


EQU 


374Q 


0100 


C30003 




JMP 


START 


0103 






DS 


509 


0300 


3EFC 


START 


MVI 


A, DRIVEA 


0302 


D352 




OUT 


FUNCTN 


0304 


3E05 




MVI 


A, DRENBL 


0306 


D350 




OUT 


CONTRL 


0308 


DB50 


RLOOP 


IN 


STATUS 


030A 


E620 




ANI 


READY 


030C 


C20803 




JNZ 


RLOOP 


030F 


3E07 




MVI 


A, DSKRUN 


0311 


D350 




OUT 


CONTRL 


0313 


DB50 


WAITZ 


IN 


STATUS 


0315 


IF 




RAR 




0316 


D22B03 




JNC 


SDONE 


0319 


3EF8 




MVI 


A, STEPO 


031B 


D352 




OUT 


FUNCTN 


031D 


3EFC 




MVI 


A, DRIVEA 


031F 


D352 




OUT 


FUNCTN 


0321 


DB50 


WAITC 


IN 


STATUS 


0323 


E604 




ANI 


COMPLT 


0325 


CA2103 




JZ 


WAITC 


0328 


C31303 




JMP 


WAITZ 


032B 


DB50 


SDONE 


IN 


STATUS 


032D 


4F 




MOV 


C,A 


032E 


DB50 


IWAIT1 


IN 


STATUS 



;ROOM FOR THE BOOT 

; SELECT 

DRIVE A 
rTURN ON DRIVE 
; COMMAND REGISTER 
;TEST FOR 
; DRIVE A READY 

ENABLE THE 

CONTROLLER 
TEST FOR HEADS 

AT TRACK ZERO 

EXECUTE 

THE 

STEP OUT 

COMMAND 
WAIT FOR 

THE SEEK 

TO COMPLETE 



GET AN IMAGE 

OF THE STATUS REG 
WAIT FOR 



6£+ i eyres = /aP<Uc 



0330 


91 


SUB 


C 


0331 


CA2E03 


JZ 


IWAIT1 


0334 


DB50 IWAIT2 IN 


STATUS 


0336 


91 


SUB 


C 


0337 


C23403 


JNZ 


IWAIT2 


033A 


DB50 IWAIT3 IN 


STATUS 


033C 


91 


SUB 


C 


033D 


CA3A03 


JZ 


IWAIT3 


0340 


3E08 


MVI 


A, HEADER 


0342 


D351 


OUT 


COMMD 


0344 


AF 


XRA 


A 


0345 


D353 


OUT 


DATA 


0347 


D353 


OUT 


DATA 


0349 


3E01 


MVI 


A, SECTOR 


034B 


D353 


OUT 


DATA 


034D 


3E80 


MVI 


A, SYSTEM 


034F 


D353 


OUT 


DATA 


0351 


3E01 


MVI 


A, DREAD 


0353 


D351 


OUT 


COMMD 


0355 


DB50 WAITD IN 


STATUS 


0357 


E602 


ANI 


OPDONE 


0359 


CA5503 


JZ 


WAITD 


035C 


DB53 


IN 


DATA 


035E 


6F 


MOV 


L,A 


035F 


5F 


MOV 


E,A 


0360 


DBS 3 


IN 


DATA 


0362 


67 


MOV 


H,A 


0363 


57 


MOV 


D,A 


0364 


DB53 LLOOP IN 


DATA 


0366 


12 


STAX 


D 


0367 


1C 


INR 


E 


0368 


C26403 


JNZ 


LLOOP 


036B 


E9 


PCHL 





THE INDEX PULSE 

TO ARRIVE 
WAIT FOR THE 

NEXT INDEX PULSE 
TEST FOR HEAD SETTLE 



RESET THE 

BUFFER POINTER 
TO HEADER AREA 

HEAD 

TRACK 

1 FOR CP/M 

OR 30 FOR DRIVERS 

SYSTEM KEY 

ISSUE A 

READ COMMAND 
WAIT FOR COMMAND 

TO COMPLETE 

;LOW ORDER BYTE OF 

; BOOTSTRAP ADDRESS 

;HIGH ORDER BYTE OF 

BOOTSTRAP ADDRESS 

LOAD 

THE 
BOOTSTRAP 

; BRANCH THERE 



***************************************************************** 

* * 

* Hard Disk Boot program. * 

* For M26, M10, and M20. * 

* * 

***************************************************************** 



bvrtoJStf 



org 



100h 



revnum 


equ 


120Q (&>#) 


IOADDR 


EQU 


CONTRL 


EQU 


IOADDR 


STATUS 


EQU 


IOADDR 


DATA 


EQU 


IOADDR+3 


FUNCTN 


EQU 


IOADDR+2 


COMMD 


EQU 


IOADDR+I 


DREAD 


EQU 


1 


SECTOR 


EQU 


1 


OPDONE 


EQU 


2 


COMPLT 


EQU 


4 


HEADER 


EQU 


10Q it 


DRENBL 


EQU 


5 


DSKRUN 


EQU 


7 


READY 


EQU 


40Q 


SYSTEM 


EQU 


200Q 


STEPO 


EQU 


370Q 


DRIVEA 


EQU 


374Q v 




jmp 


start 




ds 


509 


START 


MVI 


A, DRIVEA, . 




OUT 


FUNCTN 




MVI 


A, DRENBL 




OUT 


CONTRL 


RLOOP 


IN 


STATUS 




ANI 


READY 




JNZ- 


RLOOP 




MVI 


A, DSKRUN 




OUT 


CONTRL 


WAITZ 


IN 
RAR 


STATUS 




JNC 


SDONE 




MVI 


A, STEPO 




OUT 


FUNCTN 




MVI 


A, DRIVEA 




OUT 


FUNCTN . 


WAITC 


IN 


STATUS 




ANI 


COMPLT 




JZ 


WAITC -v 




JMP 


WAITZ 


SDONE 


IN 


STATUS 




MOV 


C,A 


IWAIT1 


IN 


STATUS 




SUB 


C 




JZ 


IWAIT1- 


I WAIT 2 


IN 


STATUS 




SUB 


C 




JNZ 


IWAIT2 • 


iwait3 


in 


status 




sub 


c 




Jz 


iwait3 



Chd) 



12 o 
I o 



;Room for the boot 

select - 

drive A 
turn on drive 

command register 
test for 
drive A ready 

enable the 

controller 
test for heads 

at track zero 



execute 

the 

step out 

command 
wait for 

the seek 

to complete 



get an image 

of the status reg 
wait for 

the index pulse 

to arrive 
wait for the 

next index pulse 
test for head settle 



TUcW CtJ hi.ntr Lo(ri(4tr bf'L 



Qo TO 



/C 05 



/ 



t*JA 






MVI 


A, HEADER 


OUT 


COMMD 


XRA 


A 


OUT 


DATA 


OUT 


DATA , 


MVI 


A, SECTOR 


OUT 


DATA, 


MVI 


A, SYSTEM 


OUT 


DATA 


MVI 


A, DREAD 


OUT 


COMMD 


WAITD IN 


STATUS 


ANI 


OPDONE 


JZ 


WAITD 


IN 


DATA .-, 


MOV 


L,A ' 


MOV 


E,A 


IN 


DATA 


MOV 


H,A 


MOV 


D,A 


LLOOP • IN 


DATA 


STAX , 


D 


INR 


E 


JNZ 


LLOOP 


PCHL 





reset the 

buffer pointer , 
to header area 

head 

track; 

1 for CP/M 

or 30 for drivers 

system key g-Q 

issue a 

read command 
wait for command 

to complete 

;low order byte of 

; bootstrap address 

;high order byte of 

; bootstrap address 

yload 

the 
; bootstrap 

; branch there 



0051 COMMD 
0005 DRENBL 
0050 IOADDR 
0002 OPDONE 
0001 SECTOR 
0321 WAITC 



0004 COMPLT 
00FC DRIVEA 
032E IWAIT1 
0020 READY 
0300 START 
03 55 WAITD 



0050 CONTRL 
0007 DSKRUN 
03 34 IWAIT2 
000D REVNUM 
0050 STATUS 
0313 WAITZ 



0053 DATA 
0052 FUNCTN 
033A IWAIT3 
0308 RLOOP 
00F8 STEPO 



0001 DREAD 
0003 HEADER 
0364 LLQOP 
032B SDOWE 
0080 SYSTEM 



